home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 41
/
64er_Magazin_Sonderheft_41_19xx_Markt__Technik_de.d64
/
listing 19a
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
640b
|
18 lines
5 rem programm zum erzeugen eines
6 rem 23, read error
7 :
10 poke 56,31:poke 52,31:clr:open 1,8,15,"i"
20 forx=0to80:reada:poke32768+x,a:next
30 input"[147] track fuer error 23";t
40 input"sektor fuer error 23";s
50 poke 32777,t:poke 32834,t:poke 32781,s
60 restore
70 forx=0to80:print#1,"m-w"chr$(x)chr$(5)chr$(1)chr$(peek(x+32768)):next
80 print:print:print"programm startet"
90 print#1,"m-e"chr$(64)chr$(5):close1:end
100 data165,18,133,22,165,19,133,23,169,35,133,24,169,0,133,25,32,39
110 data 245,32,86,245,162,0,202,208,253
120 data 173,12,28,41,31,9,192,141,12,28,169,255,141,3,28,169,85,141,1
130 data 28,80,254,184,80,254,184,80,254,184,32,0,254,76,158,253,234,234
140 data 234,169,35,133,10,169,224,133,2,165,2,48,252,96,0,0,0